From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Wed, 28 Feb 2007 10:44:10 +0000 (+0000)
Subject: (find-lisp-default-directory-predicate):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~30089
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=8d60fcd50d1809fa27ad333a198035f8d0341131;p=emacs.git

(find-lisp-default-directory-predicate):
Fix bug: Do symlink check on expanded filename.
---

diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el
index 18e30ef37eb..0dd35f23514 100644
--- a/lisp/find-lisp.el
+++ b/lisp/find-lisp.el
@@ -95,7 +95,7 @@ PARENT is the parent directory of DIR."
 	   (string= dir "..")
 	   ;; Skip directories which are symlinks
 	   ;; Easy way to circumvent recursive loops
-	   (file-symlink-p dir))))
+	   (file-symlink-p (expand-file-name dir parent)))))
 
 (defun find-lisp-default-file-predicate  (file dir)
   "True if FILE matches `find-lisp-regexp'.